home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue51 / Construc / WebMod.dfm < prev    next >
Encoding:
Text File  |  1999-09-24  |  11.4 KB  |  409 lines
  1. object WebModule1: TWebModule1
  2.   OldCreateOrder = False
  3.   Actions = <
  4.     item
  5.       Default = True
  6.       Name = 'WebActionItem1'
  7.       OnAction = WebModule1WebActionItem1Action
  8.     end>
  9.   Left = 268
  10.   Top = 112
  11.   Height = 390
  12.   Width = 504
  13.   object CustomerXMLBroker: TXMLBroker
  14.     Params = <>
  15.     ProviderName = 'CustomerProvider'
  16.     WebDispatch.PathInfo = 'CustomerXMLBroker'
  17.     Left = 48
  18.     Top = 184
  19.   end
  20.   object MidasPageProducer: TMidasPageProducer
  21.     HTMLDoc.Strings = (
  22.       '<HTML>'
  23.       '<HEAD>'
  24.       '</HEAD>'
  25.       '<BODY>'
  26.       '<FONT FACE="Comic Sans MS"SIZE=2>'
  27.       '<H1>Hello, world!</H1>'
  28.       '<#INCLUDES><#STYLES><#WARNINGS><#FORMS><#SCRIPT>'
  29.       '<HR>'
  30.       '</TABLE>'
  31.       '</TABLE>'
  32.       '</BODY>'
  33.       '</HTML>')
  34.     IncludePathURL = 'http://localhost/cgi-bin/'
  35.     Left = 112
  36.     Top = 240
  37.     object CustomerOrderDataForm: TDataForm
  38.       object CustomerNavigator: TDataNavigator
  39.         XMLComponent = CustomerFieldGroup
  40.       end
  41.       object CustomerFieldGroup: TFieldGroup
  42.         XMLBroker = CustomerXMLBroker
  43.         object CustNo: TFieldText
  44.           DisplayWidth = 10
  45.           Caption = 'CustNo'
  46.           FieldName = 'CustNo'
  47.         end
  48.         object Company: TFieldText
  49.           DisplayWidth = 30
  50.           Caption = 'Company'
  51.           FieldName = 'Company'
  52.         end
  53.         object Addr1: TFieldText
  54.           DisplayWidth = 30
  55.           Caption = 'Addr1'
  56.           FieldName = 'Addr1'
  57.         end
  58.         object Addr2: TFieldText
  59.           DisplayWidth = 30
  60.           Caption = 'Addr2'
  61.           FieldName = 'Addr2'
  62.         end
  63.         object City: TFieldText
  64.           DisplayWidth = 15
  65.           Caption = 'City'
  66.           FieldName = 'City'
  67.         end
  68.         object State: TFieldText
  69.           DisplayWidth = 20
  70.           Caption = 'State'
  71.           FieldName = 'State'
  72.         end
  73.         object Zip: TFieldText
  74.           DisplayWidth = 10
  75.           Caption = 'Zip'
  76.           FieldName = 'Zip'
  77.         end
  78.         object Country: TFieldText
  79.           DisplayWidth = 20
  80.           Caption = 'Country'
  81.           FieldName = 'Country'
  82.         end
  83.         object Phone: TFieldText
  84.           DisplayWidth = 15
  85.           Caption = 'Phone'
  86.           FieldName = 'Phone'
  87.         end
  88.         object FAX: TFieldText
  89.           DisplayWidth = 15
  90.           Caption = 'FAX'
  91.           FieldName = 'FAX'
  92.         end
  93.         object TaxRate: TFieldText
  94.           DisplayWidth = 10
  95.           Caption = 'TaxRate'
  96.           FieldName = 'TaxRate'
  97.         end
  98.         object Contact: TFieldText
  99.           DisplayWidth = 20
  100.           Caption = 'Contact'
  101.           FieldName = 'Contact'
  102.         end
  103.         object LastInvoiceDate: TFieldText
  104.           DisplayWidth = 10
  105.           Caption = 'LastInvoiceDate'
  106.           FieldName = 'LastInvoiceDate'
  107.         end
  108.         object FieldStatus1: TFieldStatus
  109.           Caption = '*'
  110.         end
  111.       end
  112.       object OrdersNavigator: TDataNavigator
  113.         XMLComponent = OrdersGrid
  114.       end
  115.       object OrdersGrid: TDataGrid
  116.         XMLBroker = OrdersXMLBroker
  117.         object OrderNo: TTextColumn
  118.           DisplayWidth = 10
  119.           Caption = 'OrderNo'
  120.           FieldName = 'OrderNo'
  121.         end
  122.         object CustNo2: TTextColumn
  123.           DisplayWidth = 10
  124.           Caption = 'CustNo'
  125.           FieldName = 'CustNo'
  126.         end
  127.         object SaleDate: TTextColumn
  128.           DisplayWidth = 10
  129.           Caption = 'SaleDate'
  130.           FieldName = 'SaleDate'
  131.         end
  132.         object ShipDate: TTextColumn
  133.           DisplayWidth = 10
  134.           Caption = 'ShipDate'
  135.           FieldName = 'ShipDate'
  136.         end
  137.         object EmpNo: TTextColumn
  138.           DisplayWidth = 10
  139.           Caption = 'EmpNo'
  140.           FieldName = 'EmpNo'
  141.         end
  142.         object ShipToContact: TTextColumn
  143.           DisplayWidth = 20
  144.           Caption = 'ShipToContact'
  145.           FieldName = 'ShipToContact'
  146.         end
  147.         object ShipToAddr1: TTextColumn
  148.           DisplayWidth = 30
  149.           Caption = 'ShipToAddr1'
  150.           FieldName = 'ShipToAddr1'
  151.         end
  152.         object ShipToAddr2: TTextColumn
  153.           DisplayWidth = 30
  154.           Caption = 'ShipToAddr2'
  155.           FieldName = 'ShipToAddr2'
  156.         end
  157.         object ShipToCity: TTextColumn
  158.           DisplayWidth = 15
  159.           Caption = 'ShipToCity'
  160.           FieldName = 'ShipToCity'
  161.         end
  162.         object ShipToState: TTextColumn
  163.           DisplayWidth = 20
  164.           Caption = 'ShipToState'
  165.           FieldName = 'ShipToState'
  166.         end
  167.         object ShipToZip: TTextColumn
  168.           DisplayWidth = 10
  169.           Caption = 'ShipToZip'
  170.           FieldName = 'ShipToZip'
  171.         end
  172.         object ShipToCountry: TTextColumn
  173.           DisplayWidth = 20
  174.           Caption = 'ShipToCountry'
  175.           FieldName = 'ShipToCountry'
  176.         end
  177.         object ShipToPhone: TTextColumn
  178.           DisplayWidth = 15
  179.           Caption = 'ShipToPhone'
  180.           FieldName = 'ShipToPhone'
  181.         end
  182.         object ShipVIA: TTextColumn
  183.           DisplayWidth = 7
  184.           Caption = 'ShipVIA'
  185.           FieldName = 'ShipVIA'
  186.         end
  187.         object PO: TTextColumn
  188.           DisplayWidth = 15
  189.           Caption = 'PO'
  190.           FieldName = 'PO'
  191.         end
  192.         object Terms: TTextColumn
  193.           DisplayWidth = 6
  194.           Caption = 'Terms'
  195.           FieldName = 'Terms'
  196.         end
  197.         object PaymentMethod: TTextColumn
  198.           DisplayWidth = 7
  199.           Caption = 'PaymentMethod'
  200.           FieldName = 'PaymentMethod'
  201.         end
  202.         object ItemsTotal: TTextColumn
  203.           DisplayWidth = 10
  204.           Caption = 'ItemsTotal'
  205.           FieldName = 'ItemsTotal'
  206.         end
  207.         object TaxRate2: TTextColumn
  208.           DisplayWidth = 10
  209.           Caption = 'TaxRate'
  210.           FieldName = 'TaxRate'
  211.         end
  212.         object Freight: TTextColumn
  213.           DisplayWidth = 10
  214.           Caption = 'Freight'
  215.           FieldName = 'Freight'
  216.         end
  217.         object AmountPaid: TTextColumn
  218.           DisplayWidth = 10
  219.           Caption = 'AmountPaid'
  220.           FieldName = 'AmountPaid'
  221.         end
  222.         object StatusColumn1: TStatusColumn
  223.           Caption = '*'
  224.         end
  225.       end
  226.     end
  227.   end
  228.   object CustomerProvider: TDataSetProvider
  229.     DataSet = CustomerADOTable
  230.     Constraints = True
  231.     Left = 48
  232.     Top = 128
  233.   end
  234.   object ADOConnect: TADOConnection
  235.     Connected = True
  236.     ConnectionString = 
  237.       'Provider=Microsoft.Jet.OLEDB.4.0;Password="";User ID=Admin;Data ' +
  238.       'Source=C:\Program Files\Common Files\Borland Shared\Data\DBDEMOS' +
  239.       '.mdb;Mode=Share Deny None;Extended Properties="";Locale Identifi' +
  240.       'er=1033;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";' +
  241.       'Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=4;Jet OLEDB' +
  242.       ':Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet' +
  243.       ' OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passwor' +
  244.       'd="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Da' +
  245.       'tabase=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;Jet OL' +
  246.       'EDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False'
  247.     LoginPrompt = False
  248.     Mode = cmShareDenyNone
  249.     Provider = 'Microsoft.Jet.OLEDB.4.0'
  250.     Left = 112
  251.     Top = 8
  252.   end
  253.   object CustomerADOTable: TADOTable
  254.     Active = True
  255.     Connection = ADOConnect
  256.     CursorType = ctStatic
  257.     TableName = 'customer'
  258.     Left = 48
  259.     Top = 40
  260.     object CustomerADOTableCustNo: TFloatField
  261.       FieldName = 'CustNo'
  262.     end
  263.     object CustomerADOTableCompany: TWideStringField
  264.       FieldName = 'Company'
  265.       Size = 30
  266.     end
  267.     object CustomerADOTableAddr1: TWideStringField
  268.       FieldName = 'Addr1'
  269.       Size = 30
  270.     end
  271.     object CustomerADOTableAddr2: TWideStringField
  272.       FieldName = 'Addr2'
  273.       Size = 30
  274.     end
  275.     object CustomerADOTableCity: TWideStringField
  276.       FieldName = 'City'
  277.       Size = 15
  278.     end
  279.     object CustomerADOTableState: TWideStringField
  280.       FieldName = 'State'
  281.     end
  282.     object CustomerADOTableZip: TWideStringField
  283.       FieldName = 'Zip'
  284.       Size = 10
  285.     end
  286.     object CustomerADOTableCountry: TWideStringField
  287.       FieldName = 'Country'
  288.     end
  289.     object CustomerADOTablePhone: TWideStringField
  290.       FieldName = 'Phone'
  291.       Size = 15
  292.     end
  293.     object CustomerADOTableFAX: TWideStringField
  294.       FieldName = 'FAX'
  295.       Size = 15
  296.     end
  297.     object CustomerADOTableTaxRate: TFloatField
  298.       FieldName = 'TaxRate'
  299.     end
  300.     object CustomerADOTableContact: TWideStringField
  301.       FieldName = 'Contact'
  302.     end
  303.     object CustomerADOTableLastInvoiceDate: TDateField
  304.       FieldName = 'LastInvoiceDate'
  305.     end
  306.   end
  307.   object OrdersADOTable: TADOTable
  308.     Active = True
  309.     Connection = ADOConnect
  310.     CursorType = ctStatic
  311.     IndexFieldNames = 'CustNo'
  312.     MasterFields = 'CustNo'
  313.     MasterSource = DataSource1
  314.     TableName = 'orders'
  315.     Left = 168
  316.     Top = 40
  317.     object OrdersADOTableOrderNo: TFloatField
  318.       FieldName = 'OrderNo'
  319.     end
  320.     object OrdersADOTableCustNo: TFloatField
  321.       FieldName = 'CustNo'
  322.     end
  323.     object OrdersADOTableSaleDate: TDateField
  324.       FieldName = 'SaleDate'
  325.     end
  326.     object OrdersADOTableShipDate: TDateField
  327.       FieldName = 'ShipDate'
  328.     end
  329.     object OrdersADOTableEmpNo: TIntegerField
  330.       FieldName = 'EmpNo'
  331.     end
  332.     object OrdersADOTableShipToContact: TWideStringField
  333.       FieldName = 'ShipToContact'
  334.     end
  335.     object OrdersADOTableShipToAddr1: TWideStringField
  336.       FieldName = 'ShipToAddr1'
  337.       Size = 30
  338.     end
  339.     object OrdersADOTableShipToAddr2: TWideStringField
  340.       FieldName = 'ShipToAddr2'
  341.       Size = 30
  342.     end
  343.     object OrdersADOTableShipToCity: TWideStringField
  344.       FieldName = 'ShipToCity'
  345.       Size = 15
  346.     end
  347.     object OrdersADOTableShipToState: TWideStringField
  348.       FieldName = 'ShipToState'
  349.     end
  350.     object OrdersADOTableShipToZip: TWideStringField
  351.       FieldName = 'ShipToZip'
  352.       Size = 10
  353.     end
  354.     object OrdersADOTableShipToCountry: TWideStringField
  355.       FieldName = 'ShipToCountry'
  356.     end
  357.     object OrdersADOTableShipToPhone: TWideStringField
  358.       FieldName = 'ShipToPhone'
  359.       Size = 15
  360.     end
  361.     object OrdersADOTableShipVIA: TWideStringField
  362.       FieldName = 'ShipVIA'
  363.       Size = 7
  364.     end
  365.     object OrdersADOTablePO: TWideStringField
  366.       FieldName = 'PO'
  367.       Size = 15
  368.     end
  369.     object OrdersADOTableTerms: TWideStringField
  370.       FieldName = 'Terms'
  371.       Size = 6
  372.     end
  373.     object OrdersADOTablePaymentMethod: TWideStringField
  374.       FieldName = 'PaymentMethod'
  375.       Size = 7
  376.     end
  377.     object OrdersADOTableItemsTotal: TFloatField
  378.       FieldName = 'ItemsTotal'
  379.     end
  380.     object OrdersADOTableTaxRate: TFloatField
  381.       FieldName = 'TaxRate'
  382.     end
  383.     object OrdersADOTableFreight: TFloatField
  384.       FieldName = 'Freight'
  385.     end
  386.     object OrdersADOTableAmountPaid: TFloatField
  387.       FieldName = 'AmountPaid'
  388.     end
  389.   end
  390.   object DataSource1: TDataSource
  391.     DataSet = CustomerADOTable
  392.     Left = 112
  393.     Top = 88
  394.   end
  395.   object OrdersProvider: TDataSetProvider
  396.     DataSet = OrdersADOTable
  397.     Constraints = True
  398.     Left = 168
  399.     Top = 120
  400.   end
  401.   object OrdersXMLBroker: TXMLBroker
  402.     Params = <>
  403.     ProviderName = 'OrdersProvider'
  404.     WebDispatch.PathInfo = 'OrdersXMLBroker'
  405.     Left = 168
  406.     Top = 184
  407.   end
  408. end
  409.